COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "outer" integer inchan,outchan,chr,eof,i
C00005 ENDMK
C⊗;
BEGIN "outer" integer inchan,outchan,chr,eof,i;
PRELOAD_with 
"Feed",
" th_sp ",
"e",
"3",
" elev",
"feed",
"a",
"$",
comment 10;
" ",
" adth ",
"s",
" emsp ",
"i",
"8",
"u",
"7",

comment 20;
"ret",
"'",
"d",
"-",
"r",
"4",
"j",
"bell",

comment 30;
"n",
",",
"f",
" QL",
"c",
" ensp ",
"k",
" QR",

comment 40;
"t",
"5",
"z",
")",
"l",
"SS",
"w",
"2",

comment 50;
"h",
" EML ",
"y",
"6",
"p",
"0",
"q",
" ENL ",

comment 60;
"o",
"9",
"b",
" URL ",
"g",
";",
"↑",
"LRL",

comment 70;
"m",
".",
"x",
"1",
"v",
" QC ",
"↓",
"RUB";string array vip[0:64];

simple procedure bell_sequence;
begin
integer xx;
xx←wordin(inchan);
if xx='15 or xx='61 or xx='12 then print(" bell"&vip[xx]&" ")
 else if xx='70 or xx='44 then print(" bell"&vip[xx]&
vip[wordin(inchan)]&
vip[wordin(inchan)]&
vip[wordin(inchan)]&
vip[wordin(inchan)]&" ")
else if xx='32 then print(" bell"&vip[xx]&
vip[wordin(inchan)]&
vip[wordin(inchan)]&
vip[wordin(inchan)]&" ")
else if xx='14 then print (" bell"&vip[xx]&
vip[wordin(inchan)]&
vip[wordin(inchan)]&
vip[wordin(inchan)]&
vip[wordin(inchan)]&
vip[wordin(inchan)]&" ")
else if xx='54 then print(" bell"&vip[xx]&
vip[wordin(inchan)]&
vip[wordin(inchan)]&" ")
else print (" bell"&vip[xx]&
vip[wordin(inchan)]&" ")
end;

 inchan ← 1;
 outchan ← 2;
 OPEN(inchan,"PTR",'10,2,0,1,0,eof);
 OPEN(outchan,"PTP",'10,0,2,0,0,0);


 while not eof do
   Begin "x1"
      chr ← wordin(inchan);
      if chr='27 then bell_sequence
       else if chr='33 or chr='04 then print(vip[chr]&"
")
       else print(vip[chr]	;
   END  ¬pbDl~∃≥⊂@E←kQKdD~(